home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1994 November: Tool Chest / Dev.CD Nov 94.toast / Tool Chest / Development Tools & Languages / Macintosh Common Lisp Related / interfaces / PInterface Translator / patches / textedit.patch < prev   
Encoding:
Text File  |  1993-09-16  |  2.0 KB  |  70 lines  |  [TEXT/CCL2]
  1. ; 1/15/91 bill filler1 comes AFTER txFace
  2.  
  3. (defrecord (TERec :handle) 
  4.    (destRect :rect)
  5.    (viewRect :rect)
  6.    (selRect :rect)
  7.    (lineHeight :signed-integer)
  8.    (fontAscent :signed-integer)
  9.    (selPoint :point)
  10.    (selStart :signed-integer)
  11.    (selEnd :signed-integer)
  12.    (active :signed-integer)
  13.    (wordBreak :pointer)
  14.    (clikLoop :pointer)
  15.    (clickTime :signed-long)
  16.    (clickLoc :signed-integer)
  17.    (caretTime :signed-long)
  18.    (caretState :signed-integer)
  19.    (just :signed-integer)
  20.    (teLength :signed-integer)
  21.    (hText :handle)
  22.    (recalBack :signed-integer)
  23.    (recalLines :signed-integer)
  24.    (clikStuff :signed-integer)
  25.    (crOnly :signed-integer)
  26.    (txFont :signed-integer)
  27.   
  28.    (txFace :unsigned-byte)      ; txFace is unpacked byte
  29.    (filler1 :signed-byte)
  30.    (txMode :signed-integer)
  31.    (txSize :signed-integer)
  32.    (inPort (:pointer grafport))
  33.    (highHook :pointer)
  34.    (caretHook :pointer)
  35.    (nLines :signed-integer)
  36.    (lineStarts (:array :signed-integer 16001))
  37.    )
  38.  
  39. (defrecord STElement 
  40.   (stCount :signed-integer)    ; number of runs in this style
  41.   (stHeight :signed-integer)   ; line height
  42.   (stAscent :signed-integer)   ; font ascent
  43.   (stFont :signed-integer)     ; font (family) number
  44.   
  45.   (filler1 :signed-byte)
  46.   (stFace :unsigned-byte); character Style
  47.   (stSize :signed-integer)     ; size in points
  48.   (stColor :rgbcolor)          ; absolute (RGB) color
  49.   )
  50.  
  51. (defrecord ScrpSTElement 
  52.   (scrpStartChar :signed-long) ; starting character position
  53.   (scrpHeight :signed-integer) ; starting character position
  54.   (scrpAscent :signed-integer)
  55.   (scrpFont :signed-integer)
  56.   
  57.   (filler1 :signed-byte)
  58.   (scrpFace :unsigned-byte); unpacked byte
  59.   (scrpSize :signed-integer)
  60.   (scrpColor :rgbcolor)
  61.   )
  62.  
  63. (defrecord (TextStyle :handle) 
  64.   (tsFont :signed-integer)     ; font (family) number
  65.   
  66.   (filler1 :signed-byte)
  67.   (tsFace :unsigned-byte); character Style
  68.   (tsSize :signed-integer)     ; size in point
  69.   (tsColor :rgbcolor)          ; absolute (RGB) color
  70.   )